home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mc.d64 / crazy popper.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  209 lines
  1. 10 TR=255:HI=2000:HI$="G.H."
  2. 20 GOTO60000
  3. 50 POKE53281,3:PRINT"[147]":POKE53281,0:GOSUB10000
  4. 52 SI=54272:FORT=0TO24:POKESI+T,0:NEXT
  5. 55 DEFFNA(U)=1923+X-40*Y
  6. 100 GOSUB30000
  7. 110 POKEQ,C:Q=FNA(U):POKEQ,D:IFZ=.THENZ=V
  8. 120 X=X+Z:IFX=-18ORX=18THENZ=-Z:SO=50:GOSUB2000
  9. 130 Y=Y+W
  10. 140 IFY=HTHENW=-W
  11. 150 GH=PEEK(FNA(U)):IFGH=35ORGH=34ORGH=36THENTB=1:R=RND(1)
  12. 152 IFTB=1ANDR>.5THENW=-W:V=Z:Z=.:TB=0:SO=100:GOSUB2000:GOTO120
  13. 153 IFTB=1ANDR<.5THENW=-W:TB=0:SO=100:GOSUB2000:GOTO120
  14. 155 IFGH=33THENGOTO2500
  15. 156 IFGH=32THEN230
  16. 157 IFGH=27THENSC=SC+1:GOSUB2015:W=-W:GOTO400
  17. 160 IFGH=31THENSC=SC+5:W=-W:GOTO400
  18. 165 IFGH=30THENSC=SC+10:W=-W:GOTO400O
  19. 230 P1=PEEK(197):IFP1<>64THEN1000
  20. 300 GOTO110
  21. 400 PRINT"[156]";SC
  22. 410 HH=HH+1:IFHH=>88THENHH=0:LE=LE+1:GOTO2600
  23. 420 IFLE=11THEN2700
  24. 500 GOTO110
  25. 1000 IFP1=29ORP1=37ORP1=4THEN1006
  26. 1005 GOTO500
  27. 1006 IFP1=4THEN4000
  28. 1010 IFP1=29ANDT1>1948THENPOKET1+1,32:T1=T1-2:POKET2,32:T2=T1+2
  29. 1020 IFP1=37ANDT2<1978THENPOKET2-1,32:T2=T2+2:POKET1,32:T1=T2-2
  30. 1030 POKET1,34:POKET2,36:POKET1+1,35:GOTO500
  31. 2000 SID=54272
  32. 2005 POKESID+24,15:POKESID+1,SO:POKESID+5,0*16+0:POKESID+6,10*16+9:POKESID+4,17
  33. 2010 POKESI+4,16:RETURN
  34. 2015 SID=54279
  35. 2020 POKESID+24,15:POKESID+1,50:POKESID+5,0:POKESID+6,10*16+9:POKESID+4,129
  36. 2025 POKESI+4,128:RETURN
  37. 2500 SI=54272:FORT=0TO24:POKESI+T,0:NEXT
  38. 2502 POKESI+24,15:POKESI+5,0:POKESI+6,249:POKESI+4,33
  39. 2530 FORT=0TO100:POKESI+1,T:POKE53280,T:FORXX=1TO5:NEXTXX,T
  40. 2535 FORT=100TO0STEP-1:POKESI+1,T:POKE53280,T:FORXX=1TO5:NEXTXX,T
  41. 2540 POKESI+4,32
  42. 2550 SID=54279
  43. 2555 POKE54296,15:POKESID+1,2:POKESID+5,0:POKESID+6,10*16+9:POKESID+4,129
  44. 2560 POKE53280,2:FORT=0TO100:XX=RND(1):IFXX>.5THENFA=43:GOTO2562
  45. 2561 FA=28
  46. 2562 POKEQ,FA:NEXT
  47. 2565 POKESI+4,128:POKE53280,0
  48. 2570 CP=CP-1:IFCP=0THEN3000
  49. 2575 PRINT"[159]";TAB(24);:FORT=0TOCP:PRINT" ";:NEXT
  50. 2580 PRINT"[159]";TAB(24);:FORT=0TOCP-1:PRINT"\";:NEXT
  51. 2585 POKEQ,32
  52. 2590 X=0:Y=0:Z=1:W=1:C=32:D=28:Q=1923:V=1
  53. 2595 T1=1961:T2=T1+2
  54. 2596 PRINT"##              ";FF$;"#$"
  55. 2597 PRINT"[145]                              ##"
  56. 2598 GOTO100
  57. 2600 SI=54272:FORT=0TO24:POKESI+T,0:NEXT
  58. 2601 POKEQ,32:POKEFNA(U),32
  59. 2602 POKESI+24,15:POKESI+5,0:POKESI+6,249:POKESI+4,33
  60. 2603 IFLE=11THEN2700
  61. 2605 NL$="NEXT LEVEL"
  62. 2606 PRINT"";TAB(15);:FORT=1TO10:PRINTMID$(NL$,T,1);
  63. 2607 FORXX=1TO50:NEXTXX,T
  64. 2610 FORXX=1TO6
  65. 2630 FORT=0TO100:POKESI+1,T:NEXTT
  66. 2632 NEXTXX
  67. 2640 POKESI+4,32
  68. 2690 GOTO50
  69. 2700 SI=54272:FORT=0TO24:POKESI+T,0:NEXT
  70. 2701 LE=1:HH=0
  71. 2702 POKESI+24,15:POKESI+5,0:POKESI+6,249:POKESI+4,33
  72. 2705 NL$="BONUS POPPER"
  73. 2706 PRINT"";TAB(14);:FORT=1TO12:PRINTMID$(NL$,T,1);
  74. 2707 FORXX=1TO50:NEXTXX,T:B=0
  75. 2730 FORT=0TO20:POKESI+1,B*10+100:POKE53280,B:B=1-B:FORXX=1TO50:NEXTXX,T
  76. 2740 POKESI+4,32
  77. 2745 CP=CP+1:IFCP=4THENCP=3
  78. 2750 PRINT"[159]";TAB(24);:FORT=0TOCP:PRINT"\";:NEXT
  79. 2790 GOTO50
  80. 3000 H$="GAME OVER"
  81. 3010 PRINT"";TAB(15);:FORT=1TO9:PRINTMID$(H$,T,1);
  82. 3020 FORXX=1TO150:NEXTXX,T
  83. 3025 FORT=0TO1000:NEXTT
  84. 3030 IFSC>HITHEN5000
  85. 3040 GOTO60000
  86. 4000 FORT=0TO10:GETA$:NEXT:P1=0
  87. 4010 GETA$:IFA$=""THEN4010
  88. 4015 IFA$="[133]"THENFORT=0TO10:GETA$:NEXT:GOTO500
  89. 4020 GOTO4000
  90. 5000 POKE53280,3:POKE53272,21:PRINT"[147]":GOSUB20000:POKE53270,200
  91. 5005 PRINT""TAB(12)"CONGRATULATIONS"
  92. 5010 PRINT"YOU HAVE MADE THE HIGH SCORE"
  93. 5015 PRINT"   ENTER YOUR INITIALS"
  94. 5020 PRINT"[158]         ----"
  95. 5030 AL$="@ABCDEFGHIJKLMNOPQRSTUVWXYZ.,*()'"
  96. 5035 L=47:R=44:SP=60:PO=1:HI$="":TK=1
  97. 5040 PRINT"[145][145]"TAB(15+TK)MID$(AL$,PO,1)
  98. 5045 PP=PEEK(197):IFPP=64THEN5045
  99. 6000 END
  100. 10000 X=0:Y=0:Z=1:W=1:C=32:D=28:Q=1923:H=40:L=0:R=40:U=80:V=1
  101. 10005 T1=1961:T2=T1+2
  102. 10010 POKE53272,29:POKE53270,216:POKE53283,2
  103. 10020 A$="]]"
  104. 10030 PRINT"";:FORT=0TO24:PRINTA$:NEXT:PRINT""
  105. 10040 PRINT"#####################################"
  106. 10045 PRINT"[156]SCORE:0            [158]HIGH:0"
  107. 10046 PRINT"LEVEL:1        [159]POPPERS:\\\ HI BY:"
  108. 10050 PRINT"#####################################"
  109. 10060 PRINT""
  110. 10070 PRINT"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  111. 10075 PRINT"[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ ["
  112. 10077 PRINT"[153]^^^^^^^^^^^^^^^^^"
  113. 10080 PRINT"[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ ["
  114. 10082 PRINT"[158]_________________"
  115. 10085 PRINT"[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ ["
  116. 10090 PRINT"####"
  117. 10095 FF$=CHR$(34)
  118. 10100 PRINT"##              ";FF$;"#$"
  119. 10105 PRINT"[145]                              ##"
  120. 10200 PRINT"[156]";SC
  121. 10205 PRINT"[158]";TAB(25);HI
  122. 10210 PRINT"";LE
  123. 10215 PRINT"[159]";TAB(24);:FORT=0TOCP:PRINT" ";:NEXT
  124. 10220 PRINT"[159]";TAB(24);:FORT=0TOCP-1:PRINT"\";:NEXT
  125. 10225 PRINT"";TAB(34);HI$
  126. 10500 RETURN
  127. 20000 FORT=0TO39:POKE1024+T,160:POKE2023-T,160
  128. 20010 POKE55296+T,T:POKE56295-T,T:NEXT
  129. 20020 FORT=0TO23:POKE1063+T*40,160:POKE1984-T*40,160
  130. 20030 POKE55335+T*40,T:POKE56256-T*40,T:NEXT
  131. 20040 RETURN
  132. 30000 MA=960:CR=1024:CC=55296:MB=402+40:FORT=0TO3:MB=MB+1:POKECR+MB,35
  133. 30005 POKECC+MB,6:NEXT
  134. 30010 FORT=1TO14:POKECR+MA-T*40,28
  135. 30015 POKECC+MA-T*40,3
  136. 30017 FORXX=0TO100:NEXT
  137. 30020 POKECR+MA-T*40,29
  138. 30025 POKECC+MA-T*40,1
  139. 30030 NEXT:T=T-1:MA=MA-T*40
  140. 30040 FORT=1TO7:MA=MA+1
  141. 30045 POKECR+MA,28
  142. 30050 POKECC+MA,3
  143. 30055 FORXX=1TO100:NEXTXX
  144. 30060 POKECR+MA,32
  145. 30075 NEXTT
  146. 30076 MB=MA+40:FORT=0TO3:MB=MB-1:POKECR+MB,32:POKECC+MB,1:NEXT
  147. 30080 FORT=0TO11
  148. 30085 MA=MA+41
  149. 30090 POKECR+MA,28
  150. 30095 POKECC+MA,3
  151. 30097 FORXX=0TO25:NEXTXX
  152. 30100 POKECR+MA,32
  153. 30105 NEXTT:POKECR+MA,28:SO=100:GOSUB2000
  154. 30500 RETURN
  155. 60000 REM
  156. 60100 PRINT"[147]":POKE53280,0:POKE53281,0:POKE53272,21:POKE53270,200
  157. 60110 A$="       *GEORGE HAMIN  83/12/10*       "
  158. 60115 B$="             *PRESS F1[146]*             "
  159. 60116 ME$="            *PLEASE WAIT*             "
  160. 60120 GOSUB20000
  161. 60130 PRINT"[169]     "
  162. 60140 PRINT"      "
  163. 60150 PRINT"     [146][169]"
  164. 60160 PRINT"    [146][169]"
  165. 60170 PRINT"  [146]RAZY"
  166. 60180 PRINT"    [223]"
  167. 60190 PRINT"     [223][146]"
  168. 60192 PRINT"      "
  169. 60195 PRINT"[146][223]     "
  170. 60200 PRINT"[145][145][145][145][145]":A=24
  171. 60210 PRINTTAB(A)"     [223]"
  172. 60220 PRINTTAB(A)"      "
  173. 60230 PRINTTAB(A)"    "
  174. 60240 PRINTTAB(A)"  [169] [146][169]"
  175. 60250 PRINTTAB(A)"    [146][169] OPPER"
  176. 60260 PRINTTAB(A)"  "
  177. 60270 PRINTTAB(A)"  "
  178. 60280 PRINTTAB(A)"  "
  179. 60290 PRINTTAB(A)"  "
  180. 60295 IFTR=255THEN60400
  181. 60300 D=0
  182. 60303 PRINT""
  183. 60305 PRINT"";RIGHT$(A$,38-D);LEFT$(A$,D)
  184. 60307 PRINT"";RIGHT$(B$,D);LEFT$(B$,38-D)
  185. 60310 D=D+1:IFD=39THEND=0
  186. 60315 FORT=1TO10:NEXTT
  187. 60316 GETC$:IFC$=""THEN60320
  188. 60317 IFC$="[133]"THEN60330
  189. 60320 GOTO60303
  190. 60330 HH=0:SC=0:LE=1:CP=3:GOTO50
  191. 60400 TR=0
  192. 60410 PRINT""
  193. 60420 D=0
  194. 60425 PRINT"";RIGHT$(A$,38-D);LEFT$(A$,D)
  195. 60426 PRINT"";RIGHT$(ME$,38-D);LEFT$(ME$,D)
  196. 60430 POKE56334,PEEK(56334)AND254
  197. 60435 POKE1,PEEK(1)AND251
  198. 60440 FORT=0TO511:POKET+12288,PEEK(53248+T):NEXT
  199. 60445 POKE1,PEEK(1)OR4
  200. 60450 POKE56334,PEEK(56334)OR1
  201. 60455 FORT=1TO7*8:READDA:POKE12288+215+T,DA:NEXT
  202. 60456 FORT=0TO7:READA,B,C:POKE12560+T,A:POKE12560+T+8,B:POKE12560+T+16,C:NEXT
  203. 60460 DATA124,254,254,254,254,124,56,16,90,129,90,60,24,24,165,195,195,255,195
  204. 60465 DATA195,195,255,195,195,3,12,48,48,200,138,128,0,6,14,10,20,52,72,176,192
  205. 60466 DATA0,0,0,0,0,0,0,0,255,255,0,0,0,0,0,0
  206. 60470 DATA127,255,254,127,255,254,102,0,102,108,0,54,120,0,30,96,0,6,96,0,6,240
  207. 60475 DATA0,15,0
  208. 60600 GOTO60300
  209.